home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1998 June / Software of the Month Club 1998 June.iso / mac / Business / Hi's Universal Saver / Dialog Director v0.6 / Examples / Progress 1.as < prev    next >
Encoding:
Text File  |  1998-04-13  |  352 b   |  11 lines  |  [TEXT/ToyS]
  1. property theMax : 1234
  2. dd install with greyscale
  3. set p to dd make dialog {size:[300, 50], contents:[┬
  4.     {class:static text, contents:"Thinking╔", bounds:[8, 4, 160, 20]}, ┬
  5.     {class:gauge, bounds:[10, 25, 290, 25 + 12], value:0, max value:theMax} ┬
  6.         ]}
  7. repeat with n from 1 to theMax
  8.     dd set value of item 2 of p to n
  9. end repeat
  10. dd delete p
  11. dd uninstall